home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
CD-ROM Magazine 1
/
CD-ROM Magazine - Issue 01.iso
/
pc
/
demo
/
corelg
/
qtour
/
mode.dir
/
00001_Script_1
next >
Wrap
Text File
|
1995-06-06
|
962b
|
42 lines
on startMovie
global gMPC,gTimer
if the machineType = 256 then
set gMPC = 1
else
set gMPC = 0
end if
set gTimer = 240
global gTICKS
put the ticks into gTICKS
end
on SELECT THEMODE
global gAUTOMATIC
set gAUTOMATIC = THEMODE
set sChan = the clickon
set sNum = the castNum of sprite sChan
set sNum2 = sNum + 1
set the puppet of sprite sChan to true
repeat while the mouseDown
if the mouseCast = sNum or the mouseCast = sNum2 then
set the castNum of sprite sChan to sNum2
else
set the castNum of sprite sChan to sNum
end if
updatestage
end repeat
set the castNum of sprite sChan to sNum
updatestage
set the puppet of sprite sChan to false
if the mouseCast = sNum or the mouseCast = sNum2 then
if gAUTOMATIC then
go frame "AUTOMATIC" of movie "INTRO"
else
go movie "INTRO"
end if
end if
end
on keydown
nothing
end